﻿Option Explicit On
Option Strict On
Imports System.Data.OleDb

Public Class FormAnyadirEquipo

    Dim DatosLeidos As OleDbDataReader
    Dim _Equipo As Equipo
    Dim _Jugador As Jugador

    Private Sub FormAnyadirEquipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Icon = My.Resources.icono_campeonato
        _Equipo = New Equipo()
        _Jugador = New Jugador()

        DatosLeidos = _Jugador.ConsultarBD("Nombre")

        While DatosLeidos.Read()

            cbx_Jugador1.Items.Add(DatosLeidos(0).ToString)
            cbx_Jugador2.Items.Add(DatosLeidos(0).ToString)

        End While
    End Sub

    Private Sub cbx_Jugador1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbx_Jugador1.SelectedIndexChanged

        cbx_Jugador2.Items.Clear()

        DatosLeidos = _Jugador.ConsultarBD("Nombre", "Nombre NOT LIKE '" & cbx_Jugador1.Text & "'")

        cbx_Jugador2.Refresh()
        While DatosLeidos.Read

            cbx_Jugador2.Items.Add(DatosLeidos(0).ToString)
            cbx_Jugador2.Refresh()

        End While

    End Sub

    Private Sub cbx_Jugador2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbx_Jugador2.SelectedIndexChanged

        cbx_Jugador1.Items.Clear()

        DatosLeidos = _Jugador.ConsultarBD("Nombre", "Nombre NOT LIKE '" & cbx_Jugador2.Text & "'")

        cbx_Jugador1.Refresh()
        While DatosLeidos.Read

            cbx_Jugador1.Items.Add(DatosLeidos(0).ToString)
            cbx_Jugador1.Refresh()

        End While

    End Sub

    Private Sub cbx_Capitan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbx_Jugador1.SelectedIndexChanged, cbx_Jugador2.SelectedIndexChanged

        cbx_Capitan.Items.Clear()
        cbx_Capitan.Items.Add(cbx_Jugador1.Text)
        cbx_Capitan.Items.Add(cbx_Jugador2.Text)

    End Sub

    Private Sub btn_Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Aceptar.Click

        Dim ListaJugadores As New List(Of Jugador)
        Dim NuevoEquipo As New Equipo(tb_Nombre.Text,
                                    tb_Entrenador.Text,
                                    cbx_Capitan.Text,
                                    mtb_Contacto.Text,
                                    ListaJugadores)

        NuevoEquipo.InsertarEnBD(NuevoEquipo, cbx_Jugador1.Text, cbx_Jugador2.Text)

    End Sub
End Class